home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / iolib.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  14.6 KB  |  711 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "iolib.h"
  4. init_iolib(){do_init(VV);}
  5. /*    macro definition for WITH-OPEN-STREAM    */
  6.  
  7. static L1()
  8. {register object *base=vs_base;
  9.     register object *sup=base+VM1; VC1
  10.     vs_reserve(VM1);
  11.     check_arg(2);
  12.     vs_top=sup;
  13.     {object V1=base[0]->c.c_cdr;
  14.     if(endp(V1))invalid_macro_call();
  15.     {object V2= (V1->c.c_car);
  16.     if(endp(V2))invalid_macro_call();
  17.     base[2]= (V2->c.c_car);
  18.     V2=V2->c.c_cdr;
  19.     if(endp(V2))invalid_macro_call();
  20.     base[3]= (V2->c.c_car);
  21.     V2=V2->c.c_cdr;
  22.     if(!endp(V2))invalid_macro_call();}
  23.     V1=V1->c.c_cdr;
  24.     base[4]= V1;}
  25.     {object V3;
  26.     object V4;
  27.     base[5]= base[4];
  28.     vs_top=(vs_base=base+5)+1;
  29.     (void) (*Lnk38)();
  30.     if(vs_base>=vs_top){vs_top=sup;goto T3;}
  31.     V3= vs_base[0];
  32.     vs_base++;
  33.     if(vs_base>=vs_top){vs_top=sup;goto T4;}
  34.     V4= vs_base[0];
  35.     vs_top=sup;
  36.     goto T5;
  37. T3:;
  38.     V3= Cnil;
  39. T4:;
  40.     V4= Cnil;
  41. T5:;
  42.     V5= list(2,base[2],base[3]);
  43.     V6= make_cons(/* INLINE-ARGS */V5,Cnil);
  44.     V7= make_cons(VV[2],(V4));
  45.     V8= list(3,VV[1],/* INLINE-ARGS */V7,list(2,VV[3],base[2]));
  46.     V9= make_cons(/* INLINE-ARGS */V8,Cnil);
  47.     base[5]= listA(3,VV[0],/* INLINE-ARGS */V6,append((V3),/* INLINE-ARGS */V9));
  48.     vs_top=(vs_base=base+5)+1;
  49.     return;}
  50. }
  51. /*    macro definition for WITH-INPUT-FROM-STRING    */
  52.  
  53. static L2()
  54. {register object *base=vs_base;
  55.     register object *sup=base+VM2; VC2
  56.     vs_reserve(VM2);
  57.     check_arg(2);
  58.     vs_top=sup;
  59.     {object V10=base[0]->c.c_cdr;
  60.     if(endp(V10))invalid_macro_call();
  61.     {object V11= (V10->c.c_car);
  62.     if(endp(V11))invalid_macro_call();
  63.     base[2]= (V11->c.c_car);
  64.     V11=V11->c.c_cdr;
  65.     if(endp(V11))invalid_macro_call();
  66.     base[3]= (V11->c.c_car);
  67.     V11=V11->c.c_cdr;
  68.     {object V12=getf(V11,VV[39],OBJNULL);
  69.     if(V12==OBJNULL){
  70.     base[4]= Cnil;
  71.     } else {
  72.     base[4]= V12;}}
  73.     {object V13=getf(V11,VV[40],OBJNULL);
  74.     if(V13==OBJNULL){
  75.     base[5]= Cnil;
  76.     } else {
  77.     base[5]= V13;}}
  78.     {object V14=getf(V11,VV[41],OBJNULL);
  79.     if(V14==OBJNULL){
  80.     base[6]= Cnil;
  81.     } else {
  82.     base[6]= V14;}}
  83.     check_other_key(V11,3,VV[39],VV[40],VV[41]);}
  84.     V10=V10->c.c_cdr;
  85.     base[7]= V10;}
  86.     if((base[4])==Cnil){
  87.     goto T10;}
  88.     {object V15;
  89.     object V16;
  90.     base[8]= base[7];
  91.     vs_top=(vs_base=base+8)+1;
  92.     (void) (*Lnk38)();
  93.     if(vs_base>=vs_top){vs_top=sup;goto T14;}
  94.     V15= vs_base[0];
  95.     vs_base++;
  96.     if(vs_base>=vs_top){vs_top=sup;goto T15;}
  97.     V16= vs_base[0];
  98.     vs_top=sup;
  99.     goto T16;
  100. T14:;
  101.     V15= Cnil;
  102. T15:;
  103.     V16= Cnil;
  104. T16:;
  105.     V17= list(2,base[2],list(4,VV[4],base[3],base[5],base[6]));
  106.     V18= make_cons(/* INLINE-ARGS */V17,Cnil);
  107.     V19= make_cons(VV[2],(V16));
  108.     V20= list(3,VV[1],/* INLINE-ARGS */V19,list(3,VV[5],base[4],list(2,VV[6],base[2])));
  109.     V21= make_cons(/* INLINE-ARGS */V20,Cnil);
  110.     base[8]= listA(3,VV[0],/* INLINE-ARGS */V18,append((V15),/* INLINE-ARGS */V21));
  111.     vs_top=(vs_base=base+8)+1;
  112.     return;}
  113. T10:;
  114.     V22= list(2,base[2],list(4,VV[4],base[3],base[5],base[6]));
  115.     base[8]= listA(3,VV[0],make_cons(/* INLINE-ARGS */V22,Cnil),base[7]);
  116.     vs_top=(vs_base=base+8)+1;
  117.     return;
  118. }
  119. /*    macro definition for WITH-OUTPUT-TO-STRING    */
  120.  
  121. static L3()
  122. {register object *base=vs_base;
  123.     register object *sup=base+VM3; VC3
  124.     vs_reserve(VM3);
  125.     check_arg(2);
  126.     vs_top=sup;
  127.     {object V23=base[0]->c.c_cdr;
  128.     if(endp(V23))invalid_macro_call();
  129.     {object V24= (V23->c.c_car);
  130.     if(endp(V24))invalid_macro_call();
  131.     base[2]= (V24->c.c_car);
  132.     V24=V24->c.c_cdr;
  133.     if(endp(V24)){
  134.     base[3]= Cnil;
  135.     } else {
  136.     base[3]= (V24->c.c_car);
  137.     V24=V24->c.c_cdr;}
  138.     if(!endp(V24))invalid_macro_call();}
  139.     V23=V23->c.c_cdr;
  140.     base[4]= V23;}
  141.     if((base[3])==Cnil){
  142.     goto T19;}
  143.     V25= list(2,base[2],list(2,VV[7],base[3]));
  144.     base[5]= listA(3,VV[0],make_cons(/* INLINE-ARGS */V25,Cnil),base[4]);
  145.     vs_top=(vs_base=base+5)+1;
  146.     return;
  147. T19:;
  148.     V26= list(2,base[2],VV[8]);
  149.     V27= make_cons(/* INLINE-ARGS */V26,Cnil);
  150.     V28= list(2,VV[9],base[2]);
  151.     V29= make_cons(/* INLINE-ARGS */V28,Cnil);
  152.     base[5]= listA(3,VV[0],/* INLINE-ARGS */V27,append(base[4],/* INLINE-ARGS */V29));
  153.     vs_top=(vs_base=base+5)+1;
  154.     return;
  155. }
  156. /*    function definition for READ-FROM-STRING    */
  157.  
  158. static L4()
  159. {register object *base=vs_base;
  160.     register object *sup=base+VM4; VC4
  161.     vs_reserve(VM4);
  162.     {object V30;
  163.     object V31;
  164.     object V32;
  165.     object V33;
  166.     object V34;
  167.     object V35;
  168.     if(vs_top-vs_base<1) too_few_arguments();
  169.     parse_key(vs_base+3,FALSE,FALSE,3,VV[40],VV[41],VV[42]);
  170.     V30=(base[0]);
  171.     vs_base += 1;
  172.     if(vs_base>=vs_top){vs_top=sup;goto T21;}
  173.     V31=(base[1]);
  174.     vs_base++;
  175.     if(vs_base>=vs_top){vs_top=sup;goto T22;}
  176.     V32=(base[2]);
  177.     vs_top=sup;goto T23;
  178. T21:;
  179.     V31= Ct;
  180. T22:;
  181.     V32= Cnil;
  182. T23:;
  183.     if(base[6]==Cnil){
  184.     V33= small_fixnum(0);
  185.     }else{
  186.     V33=(base[3]);}
  187.     if(base[7]==Cnil){
  188.     V34= make_fixnum(length((V30)));
  189.     }else{
  190.     V34=(base[4]);}
  191.     V35=(base[5]);
  192.     {register object V36;
  193.     base[9]= (V30);
  194.     base[10]= (V33);
  195.     base[11]= (V34);
  196.     vs_top=(vs_base=base+9)+3;
  197.     (void) (*Lnk4)();
  198.     vs_top=sup;
  199.     V36= vs_base[0];
  200.     if(((V35))==Cnil){
  201.     goto T33;}
  202.     base[10]= (V36);
  203.     base[11]= (V31);
  204.     base[12]= (V32);
  205.     vs_top=(vs_base=base+10)+3;
  206.     (void) (*Lnk43)();
  207.     vs_top=sup;
  208.     base[9]= vs_base[0];
  209.     base[11]= (V36);
  210.     vs_top=(vs_base=base+11)+1;
  211.     (void) (*Lnk6)();
  212.     vs_top=sup;
  213.     base[10]= vs_base[0];
  214.     vs_top=(vs_base=base+9)+2;
  215.     return;
  216. T33:;
  217.     base[10]= (V36);
  218.     base[11]= (V31);
  219.     base[12]= (V32);
  220.     vs_top=(vs_base=base+10)+3;
  221.     Lread();
  222.     vs_top=sup;
  223.     base[9]= vs_base[0];
  224.     base[11]= (V36);
  225.     vs_top=(vs_base=base+11)+1;
  226.     (void) (*Lnk6)();
  227.     vs_top=sup;
  228.     base[10]= vs_base[0];
  229.     vs_top=(vs_base=base+9)+2;
  230.     return;}
  231.     }
  232. }
  233. /*    function definition for WRITE-TO-STRING    */
  234.  
  235. static L5()
  236. {register object *base=vs_base;
  237.     register object *sup=base+VM5; VC5
  238.     vs_reserve(VM5);
  239.     {object V37;
  240.     object V38;
  241.     object V39;
  242.     object V40;
  243.     object V41;
  244.     object V42;
  245.     object V43;
  246.     object V44;
  247.     object V45;
  248.     object V46;
  249.     object V47;
  250.     object V48;
  251.     if(vs_top-vs_base<1) too_few_arguments();
  252.     parse_key(vs_base+1,TRUE,FALSE,10,VV[44],VV[45],VV[46],VV[47],VV[48],VV[49],VV[50],VV[51],VV[52],VV[53]);
  253.     V37=(base[0]);
  254.     vs_top=sup;
  255.     V38=(base[1]);
  256.     V39=(base[2]);
  257.     V40=(base[3]);
  258.     V41=(base[4]);
  259.     V42=(base[5]);
  260.     V43=(base[6]);
  261.     V44=(base[7]);
  262.     V45=(base[8]);
  263.     V46=(base[9]);
  264.     V47=(base[10]);
  265.     V48=(base[11]);
  266.     {object V49;
  267.     vs_base=vs_top;
  268.     (void) (*Lnk54)();
  269.     vs_top=sup;
  270.     V49= vs_base[0];
  271.     base[23]= (V37);
  272.     base[24]= VV[10];
  273.     base[25]= (V49);
  274.     {object V50;
  275.     V50= (V38);
  276.      vs_top=base+26;
  277.      while(!endp(V50))
  278.      {vs_push(car(V50));V50=cdr(V50);}
  279.     vs_base=base+23;}
  280.     Lwrite();
  281.     vs_top=sup;
  282.     base[23]= (V49);
  283.     vs_top=(vs_base=base+23)+1;
  284.     (void) (*Lnk9)();
  285.     return;}
  286.     }
  287. }
  288. /*    function definition for PRIN1-TO-STRING    */
  289.  
  290. static L6()
  291. {register object *base=vs_base;
  292.     register object *sup=base+VM6; VC6
  293.     vs_reserve(VM6);
  294.     {object V51;
  295.     check_arg(1);
  296.     V51=(base[0]);
  297.     vs_top=sup;
  298. TTL:;
  299.     {object V52;
  300.     vs_base=vs_top;
  301.     (void) (*Lnk54)();
  302.     vs_top=sup;
  303.     V52= vs_base[0];
  304.     (void)(prin1((V51),(V52)));
  305.     base[2]= (V52);
  306.     vs_top=(vs_base=base+2)+1;
  307.     (void) (*Lnk9)();
  308.     return;}
  309.     }
  310. }
  311. /*    function definition for PRINC-TO-STRING    */
  312.  
  313. static L7()
  314. {register object *base=vs_base;
  315.     register object *sup=base+VM7; VC7
  316.     vs_reserve(VM7);
  317.     {object V53;
  318.     check_arg(1);
  319.     V53=(base[0]);
  320.     vs_top=sup;
  321. TTL:;
  322.     {object V54;
  323.     vs_base=vs_top;
  324.     (void) (*Lnk54)();
  325.     vs_top=sup;
  326.     V54= vs_base[0];
  327.     (void)(princ((V53),(V54)));
  328.     base[2]= (V54);
  329.     vs_top=(vs_base=base+2)+1;
  330.     (void) (*Lnk9)();
  331.     return;}
  332.     }
  333. }
  334. /*    macro definition for WITH-OPEN-FILE    */
  335.  
  336. static L8()
  337. {register object *base=vs_base;
  338.     register object *sup=base+VM8; VC8
  339.     vs_reserve(VM8);
  340.     check_arg(2);
  341.     vs_top=sup;
  342.     {object V55=base[0]->c.c_cdr;
  343.     if(endp(V55))invalid_macro_call();
  344.     {object V56= (V55->c.c_car);
  345.     if(endp(V56))invalid_macro_call();
  346.     base[2]= (V56->c.c_car);
  347.     V56=V56->c.c_cdr;
  348.     base[3]= V56;}
  349.     V55=V55->c.c_cdr;
  350.     base[4]= V55;}
  351.     {object V57;
  352.     object V58;
  353.     base[5]= base[4];
  354.     vs_top=(vs_base=base+5)+1;
  355.     (void) (*Lnk38)();
  356.     if(vs_base>=vs_top){vs_top=sup;goto T62;}
  357.     V57= vs_base[0];
  358.     vs_base++;
  359.     if(vs_base>=vs_top){vs_top=sup;goto T63;}
  360.     V58= vs_base[0];
  361.     vs_top=sup;
  362.     goto T64;
  363. T62:;
  364.     V57= Cnil;
  365. T63:;
  366.     V58= Cnil;
  367. T64:;
  368.     V59= list(2,base[2],make_cons(VV[11],base[3]));
  369.     V60= make_cons(/* INLINE-ARGS */V59,Cnil);
  370.     V61= make_cons(VV[2],(V58));
  371.     V62= list(3,VV[1],/* INLINE-ARGS */V61,list(2,VV[3],base[2]));
  372.     V63= make_cons(/* INLINE-ARGS */V62,Cnil);
  373.     base[5]= listA(3,VV[0],/* INLINE-ARGS */V60,append((V57),/* INLINE-ARGS */V63));
  374.     vs_top=(vs_base=base+5)+1;
  375.     return;}
  376. }
  377. /*    local entry for function Y-OR-N-P    */
  378.  
  379. static object LI9(va_alist)
  380.     va_dcl 
  381. {    
  382.     va_list ap;
  383.     int narg = VFUN_NARGS; VMB9 VMS9 VMV9
  384.     {register object V64;
  385.     register object V65;
  386.     narg = narg - 0;
  387.     if (narg <= 0) goto T65;
  388.     else {
  389.     va_start(ap);
  390.     V64= va_arg(ap,object);}
  391.     --narg; goto T66;
  392. T65:;
  393.     V64= Cnil;
  394. T66:;
  395.     V66 = list_vector(narg,ap);
  396.     V65= V66;
  397.     {register object V67;
  398.     V67= Cnil;
  399. T69:;
  400.     if(((V64))==Cnil){
  401.     goto T72;}
  402.     base[0]= symbol_value(VV[12]);
  403.     base[1]= VV[13];
  404.     base[2]= (V64);
  405.     base[3]= (V65);
  406.     vs_top=(vs_base=base+0)+4;
  407.     Lformat();
  408.     vs_top=sup;
  409. T72:;
  410.     base[0]= symbol_value(VV[12]);
  411.     vs_top=(vs_base=base+0)+1;
  412.     Lread();
  413.     vs_top=sup;
  414.     V67= vs_base[0];
  415.     base[0]= symbol_name((V67));
  416.     base[1]= VV[14];
  417.     vs_top=(vs_base=base+0)+2;
  418.     Lstring_equal();
  419.     vs_top=sup;
  420.     if((vs_base[0])==Cnil){
  421.     goto T84;}
  422.     {object V68 = Ct;
  423.     VMR9(V68)}
  424. T84:;
  425.     base[0]= symbol_name((V67));
  426.     base[1]= VV[15];
  427.     vs_top=(vs_base=base+0)+2;
  428.     Lstring_equal();
  429.     vs_top=sup;
  430.     if((vs_base[0])==Cnil){
  431.     goto T82;}
  432.     {object V69 = Cnil;
  433.     VMR9(V69)}
  434. T82:;
  435.     goto T69;}}
  436.     }
  437. /*    local entry for function YES-OR-NO-P    */
  438.  
  439. static object LI10(va_alist)
  440.     va_dcl 
  441. {    
  442.     va_list ap;
  443.     int narg = VFUN_NARGS; VMB10 VMS10 VMV10
  444.     {register object V70;
  445.     register object V71;
  446.     narg = narg - 0;
  447.     if (narg <= 0) goto T94;
  448.     else {
  449.     va_start(ap);
  450.     V70= va_arg(ap,object);}
  451.     --narg; goto T95;
  452. T94:;
  453.     V70= Cnil;
  454. T95:;
  455.     V72 = list_vector(narg,ap);
  456.     V71= V72;
  457.     {register object V73;
  458.     V73= Cnil;
  459. T98:;
  460.     if(((V70))==Cnil){
  461.     goto T101;}
  462.     base[0]= symbol_value(VV[12]);
  463.     base[1]= VV[16];
  464.     base[2]= (V70);
  465.     base[3]= (V71);
  466.     vs_top=(vs_base=base+0)+4;
  467.     Lformat();
  468.     vs_top=sup;
  469. T101:;
  470.     base[0]= symbol_value(VV[12]);
  471.     vs_top=(vs_base=base+0)+1;
  472.     Lread();
  473.     vs_top=sup;
  474.     V73= vs_base[0];
  475.     base[0]= symbol_name((V73));
  476.     base[1]= VV[17];
  477.     vs_top=(vs_base=base+0)+2;
  478.     Lstring_equal();
  479.     vs_top=sup;
  480.     if((vs_base[0])==Cnil){
  481.     goto T113;}
  482.     {object V74 = Ct;
  483.     VMR10(V74)}
  484. T113:;
  485.     base[0]= symbol_name((V73));
  486.     base[1]= VV[18];
  487.     vs_top=(vs_base=base+0)+2;
  488.     Lstring_equal();
  489.     vs_top=sup;
  490.     if((vs_base[0])==Cnil){
  491.     goto T111;}
  492.     {object V75 = Cnil;
  493.     VMR10(V75)}
  494. T111:;
  495.     goto T98;}}
  496.     }
  497. /*    local entry for function SHARP-A-READER    */
  498.  
  499. static object LI11(V79,V80,V81)
  500.  
  501. object V79;object V80;register object V81;
  502. {     VMB11 VMS11 VMV11
  503. TTL:;
  504.     {register object V82;
  505.     base[0]= (V79);
  506.     base[1]= Cnil;
  507.     base[2]= Cnil;
  508.     base[3]= Ct;
  509.     vs_top=(vs_base=base+0)+4;
  510.     Lread();
  511.     vs_top=sup;
  512.     V82= vs_base[0];
  513.     if((symbol_value(VV[19]))==Cnil){
  514.     goto T129;}
  515.     {object V83 = Cnil;
  516.     VMR11(V83)}
  517. T129:;
  518.     {register object V84;
  519.     register object V85;
  520.     register object V86;
  521.     V84= small_fixnum(0);
  522.     V85= Cnil;
  523.     V86= (V82);
  524. T132:;
  525.     if(!(number_compare((V84),(V81))>=0)){
  526.     goto T133;}
  527.     V87= nreverse((V85));
  528.     {object V88 = (VFUN_NARGS=3,(*(LnkLI55))(/* INLINE-ARGS */V87,VV[20],(V82)));
  529.     VMR11(V88)}
  530. T133:;
  531.     V84= one_plus((V84));
  532.     V89 = make_fixnum(length((V86)));
  533.     V85= make_cons(V89,(V85));
  534.     if(!((length((V86)))==0)){
  535.     goto T142;}
  536.     goto T140;
  537. T142:;
  538.     V86= elt((V86),0);
  539. T140:;
  540.     goto T132;}}
  541. }
  542. /*    local entry for function DRIBBLE    */
  543.  
  544. static object LI12(va_alist)
  545.     va_dcl 
  546. {    
  547.     va_list ap;
  548.     int narg = VFUN_NARGS; VMB12 VMS12 VMV12
  549.     {object V90;
  550.     object V91;
  551.     object V92;
  552.     narg = narg - 0;
  553.     if (narg <= 0) goto T145;
  554.     else {
  555.     va_start(ap);
  556.     V90= va_arg(ap,object);}
  557.     V91= Ct;
  558.     if (--narg <= 0) goto T146;
  559.     else {
  560.     V92= va_arg(ap,object);}
  561.     --narg; goto T147;
  562. T145:;
  563.     V90= VV[21];
  564.     V91= Cnil;
  565. T146:;
  566.     V92= VV[22];
  567. T147:;
  568.     if(((V91))!=Cnil){
  569.     goto T151;}
  570.     if((symbol_value(VV[23]))!=Cnil){
  571.     goto T153;}
  572.     base[0]= VV[24];
  573.     vs_top=(vs_base=base+0)+1;
  574.     Lerror();
  575.     vs_top=sup;
  576. T153:;
  577.     if(!((symbol_value(VV[25]))==(symbol_value(VV[26])))){
  578.     goto T159;}
  579.     setq(VV[26],symbol_value(VV[27]));
  580.     goto T157;
  581. T159:;
  582.     (void)((VFUN_NARGS=1,(*(LnkLI56))(VV[28])));
  583. T157:;
  584.     base[0]= symbol_value(VV[23]);
  585.     vs_top=(vs_base=base+0)+1;
  586.     Lclose();
  587.     vs_top=sup;
  588.     setq(VV[23],Cnil);
  589.     base[0]= Ct;
  590.     base[1]= VV[29];
  591.     base[2]= symbol_value(VV[30]);
  592.     vs_top=(vs_base=base+0)+3;
  593.     Lformat();
  594.     vs_top=sup;
  595.     {object V93 = vs_base[0];
  596.     VMR12(V93)}
  597. T151:;
  598.     if((symbol_value(VV[23]))==Cnil){
  599.     goto T170;}
  600.     base[0]= VV[31];
  601.     base[1]= symbol_value(VV[30]);
  602.     vs_top=(vs_base=base+0)+2;
  603.     Lerror();
  604.     vs_top=sup;
  605.     {object V94 = vs_base[0];
  606.     VMR12(V94)}
  607. T170:;
  608.     {object V95;
  609.     object V96;
  610.     base[2]= (V90);
  611.     vs_top=(vs_base=base+2)+1;
  612.     Lnamestring();
  613.     vs_top=sup;
  614.     V95= vs_base[0];
  615.     base[2]= (V90);
  616.     base[3]= VV[32];
  617.     base[4]= VV[33];
  618.     base[5]= VV[34];
  619.     base[6]= (V92);
  620.     base[7]= VV[35];
  621.     base[8]= VV[36];
  622.     vs_top=(vs_base=base+2)+7;
  623.     (void) (*Lnk11)();
  624.     vs_top=sup;
  625.     V96= vs_base[0];
  626.     setq(VV[30],(V95));
  627.     setq(VV[23],(V96));
  628.     setq(VV[27],symbol_value(VV[26]));
  629.     base[3]= symbol_value(VV[26]);
  630.     base[4]= (V96);
  631.     vs_top=(vs_base=base+3)+2;
  632.     Lmake_echo_stream();
  633.     vs_top=sup;
  634.     base[2]= vs_base[0];
  635.     base[4]= symbol_value(VV[26]);
  636.     base[5]= (V96);
  637.     vs_top=(vs_base=base+4)+2;
  638.     Lmake_broadcast_stream();
  639.     vs_top=sup;
  640.     base[3]= vs_base[0];
  641.     vs_top=(vs_base=base+2)+2;
  642.     Lmake_two_way_stream();
  643.     vs_top=sup;
  644.     setq(VV[25],vs_base[0]);
  645.     setq(VV[26],symbol_value(VV[25]));
  646.     {object V97;
  647.     object V98;
  648.     object V99;
  649.     object V100;
  650.     object V101;
  651.     object V102;
  652.     vs_base=vs_top;
  653.     (void) (*Lnk57)();
  654.     if(vs_base>=vs_top){vs_top=sup;goto T201;}
  655.     V97= vs_base[0];
  656.     vs_base++;
  657.     if(vs_base>=vs_top){vs_top=sup;goto T202;}
  658.     V98= vs_base[0];
  659.     vs_base++;
  660.     if(vs_base>=vs_top){vs_top=sup;goto T203;}
  661.     V99= vs_base[0];
  662.     vs_base++;
  663.     if(vs_base>=vs_top){vs_top=sup;goto T204;}
  664.     V100= vs_base[0];
  665.     vs_base++;
  666.     if(vs_base>=vs_top){vs_top=sup;goto T205;}
  667.     V101= vs_base[0];
  668.     vs_base++;
  669.     if(vs_base>=vs_top){vs_top=sup;goto T206;}
  670.     V102= vs_base[0];
  671.     vs_top=sup;
  672.     goto T207;
  673. T201:;
  674.     V97= Cnil;
  675. T202:;
  676.     V98= Cnil;
  677. T203:;
  678.     V99= Cnil;
  679. T204:;
  680.     V100= Cnil;
  681. T205:;
  682.     V101= Cnil;
  683. T206:;
  684.     V102= Cnil;
  685. T207:;
  686.     base[2]= Ct;
  687.     base[3]= VV[37];
  688.     base[4]= (V95);
  689.     base[5]= (V102);
  690.     base[6]= (V101);
  691.     base[7]= (V100);
  692.     base[8]= (V99);
  693.     base[9]= (V98);
  694.     base[10]= (V97);
  695.     vs_top=(vs_base=base+2)+9;
  696.     Lformat();
  697.     vs_top=sup;
  698.     {object V103 = vs_base[0];
  699.     VMR12(V103)}}}}
  700.     }
  701. static LnkT57(){ call_or_link(VV[57],&Lnk57);} /* GET-DECODED-TIME */
  702. static LnkT11(){ call_or_link(VV[11],&Lnk11);} /* OPEN */
  703. static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[56],&LnkLI56,ap);} /* WARN */
  704. static object  LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[55],&LnkLI55,ap);} /* MAKE-ARRAY */
  705. static LnkT9(){ call_or_link(VV[9],&Lnk9);} /* GET-OUTPUT-STREAM-STRING */
  706. static LnkT54(){ call_or_link(VV[54],&Lnk54);} /* MAKE-STRING-OUTPUT-STREAM */
  707. static LnkT6(){ call_or_link(VV[6],&Lnk6);} /* GET-STRING-INPUT-STREAM-INDEX */
  708. static LnkT43(){ call_or_link(VV[43],&Lnk43);} /* READ-PRESERVING-WHITESPACE */
  709. static LnkT4(){ call_or_link(VV[4],&Lnk4);} /* MAKE-STRING-INPUT-STREAM */
  710. static LnkT38(){ call_or_link(VV[38],&Lnk38);} /* FIND-DECLARATIONS */
  711.